Apple Reference & Presen…tion Library 4 (Reseller)/Apple Ref. & Pres. Lib.v4.0.iso/6-Apple⁄DEC Alliance/Solutions & Networking Guide/Macintosh Networking Guide/Macintosh Networking Guide/card_6099.txt

Text File | 1990-04-17 | 16KB | 691 lines

-- card: 6099 from stack: in
-- bmap block id: 9043
-- flags: 0000
-- background id: 14812
-- name: Outliner
----- HyperTalk script -----
on openCard
  global Mack,Host
  set lockscreen to true
  put "Outliner" & return & "choose platform" into fld "Tell"
  get field "Horizontal" of cd "Mac Grid"
  put it into EnvHolder
  repeat with lineNum = 1 to 7
    if line lineNum of envHolder is not "Mac" then
      put line lineNum of envHolder into line lineNum of cd fld "Environments"
    else
      put "Macintosh" into line lineNum of cd fld "Environments"
    end if
  end repeat
  unlock screen with dissolve
end openCard

on clearF
  hide cd btn solutionshiliter
  hide cd btn environmentshiliter
  hide cd btn productshiliter
  repeat with i = 1 to 7
    hide cd fld i
  end repeat
end clearF



-- part 2 (field)
-- low flags: 01
-- high flags: 2002
-- rect: left=0 top=62 right=89 bottom=106
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 130
-- text size: 16
-- style flags: 16640
-- line height: 21
-- part name: environmentTitle
----- HyperTalk script -----
on mouseEnter
  put "Environment List" & return & "choose an environment below" into fld "Tell"
end mouseEnter

on mouseLeave
  put empty into fld "Tell"
end mouseLeave



-- part 30 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=114 top=49 right=70 bottom=224
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: solChosen


-- part 5 (field)
-- low flags: 01
-- high flags: 2002
-- rect: left=105 top=62 right=89 bottom=283
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 130
-- text size: 16
-- style flags: 16640
-- line height: 21
-- part name: solutionsTitle


-- part 7 (field)
-- low flags: 81
-- high flags: 2002
-- rect: left=282 top=62 right=89 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 130
-- text size: 16
-- style flags: 16640
-- line height: 21
-- part name: ProdTitle


-- part 13 (field)
-- low flags: 01
-- high flags: 2002
-- rect: left=0 top=89 right=264 bottom=106
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 156
-- text size: 18
-- style flags: 16384
-- line height: 24
-- part name: Environments
----- HyperTalk script -----
on mouseUp
  global env,Mack,Host
  --∆ clear hiliters for other columns
  hide cd button "solutionshiliter"
  hide cd button "productsHiliter"
  --∆ select and highlight line
  put SelectionAndHiliter() into lineNumber
  --∆ Convert line number to the contents of the line
  do "put line " & lineNumber & " of " & name of me & " into name"
  --∆ test for empty selection
  if name is ""
  then
  play boing
  answer "Click directly on an environment..." with "Try again!"
  set hilite of cd button "environmentshiliter" to false
  exit mouseUp
end if
hide cd fld "Products"
hide cd fld "ProdTitle"
--∆ Adjust Macintosh back to Mac
if name is not "Macintosh" then
  put name into env
else
  put "Mac" into env
end if
--∆ now test for Mac or Host selection
if Mack then
  put "" into MacOrHost
else
  put "Host" into MacOrHost
  if name is "Macintosh" then
    put "" into MacOrHost
  end if
end if
--∆ get the correct solution list
get cd fld (env & "Sol") of card ("Limit" & MacOrHost)
if it is empty then
  put "No" && name && "solutions installed in this version" into cd fld "Solutions"
else
  put it into cd fld "Solutions"
end if
put name && "Solutions" into cd fld "SolutionsTitle"
show cd fld "SolutionsTitle"
show cd fld "Solutions"
end mouseUp

on mouseEnter
  put "Environment Field" & return & "click on an environment" into fld "Tell"
  changeCurs 6069
end mouseEnter

on mouseLeave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave



-- part 14 (field)
-- low flags: 01
-- high flags: 2002
-- rect: left=105 top=89 right=288 bottom=283
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 156
-- text size: 18
-- style flags: 8192
-- line height: 24
-- part name: Solutions
----- HyperTalk script -----
on mouseUp
  global holder,sol,NH,Mack,Host
  --∆ hide products hiliter (in case of re-selection)
  hide cd btn "productsHiliter"
  --∆ select and highlight line
  put SelectionAndHiliter() into lineNumber
  --∆ Convert line number to the contents of the line
  do "put line " & lineNumber & " of " & name of me & " into name"
  --∆ test for empty selection
  if name is ""
  then
  play boing
  answer "Click directly on a solution..." with "Try again!"
  set hilite of cd button "solutionshiliter" to false
  exit mouseUp
end if
if name contains "No " then --∆ test for no solutions
  hide me
  hide cd fld "solChosen"
  exit mouseUp
end if
set cursor to busy --∆ now that we have a go, this could take a while
put name into cd fld "solChosen" --∆ store selected solution
put name into sol
--∆ identify if Mac or host based view requested
if Mack then
  extractMac
  put 1 into whichItem
else
  extractHost
  put 2 into whichItem
end if
put empty into cd field "Products" --∆ clear last product selection
--∆ extract products from env/sol strings
if cd field "solChosen" is "Network Services"
then
repeat with i = 1 to the number of lines of holder
  put char 1 to 32 of item whichItem of line i of holder & return after cd fld "Products"
end repeat
else
  repeat with i = 1 to the number of lines of holder
    put char 1 to 32 of item whichItem of line i of holder & return after cd fld "Products"
  end repeat
end if
set the scroll of cd fld "Products" to 0
show cd fld "prodTitle"
show card fld "Products"
end mouseUp

on mouseEnter
  put "Solutions Field" & return & "click on a solution" into fld "Tell"
  changeCurs 6069
end mouseEnter

on mouseLeave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave




-- part 16 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=282 top=89 right=301 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 156
-- text size: 9
-- style flags: 16384
-- line height: 12
-- part name: Products
----- HyperTalk script -----
on mouseUp
  global holder,product
  --∆ select and highlight line
  put SelectionAndHiliter() into lineNumber
  --∆ Convert line number to the contents of the line
  do "put line " & lineNumber & " of " & name of me & " into name"
  --∆ test for empty selection
  if name is "" then
    play boing
    answer "Click directly on a product..." with "Try again!"
    exit mouseUp
  end if
  --∆ go to the selected product card
  set lockscreen to true
  set cursor to busy
  hide cd btn "productsHiliter"
  put character 1 to 26 of name into cardName
  go cd cardName of stack "Products"
  unlock screen
end mouseUp

on mouseEnter
  put "Products Field" & return & "click on a product" into fld "Tell"
  changeCurs 6069
end mouseEnter

on mouseLeave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave


-- part 18 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=0 top=0 right=28 bottom=184
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 156
-- text size: 18
-- style flags: 16384
-- line height: 24
-- part name: Title
----- HyperTalk script -----
on mouseEnter
  put "Outline View" & return & "click elsewhere" into fld "Tell"
end mouseEnter

on mouseLeave
  put empty into fld "Tell"
end mouseLeave




-- part 25 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=343 top=303 right=342 bottom=386
-- title width / last selected line: 0
-- icon id / first selected line: 1409 / 1409
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: mask
----- HyperTalk script -----
on mouseEnter
  changeCurs 6069
  put "Outliner Button" & return & "current location" into fld "Tell"
end mouseEnter

on mouseLeave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave


-- part 28 (button)
-- low flags: 00
-- high flags: 4000
-- rect: left=1 top=94 right=119 bottom=105
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: environmentsHiliter
----- HyperTalk script -----
on mouseEnter
  changeCurs 6069
end mouseEnter



-- part 29 (button)
-- low flags: 80
-- high flags: 4000
-- rect: left=106 top=118 right=143 bottom=282
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: solutionsHiliter
----- HyperTalk script -----
on mouseEnter
  changeCurs 6069
end mouseEnter



-- part 31 (button)
-- low flags: 80
-- high flags: 4000
-- rect: left=283 top=142 right=155 bottom=495
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: productsHiliter
----- HyperTalk script -----
on mouseEnter
  changeCurs 6069
end mouseEnter



-- part 32 (button)
-- low flags: 00
-- high flags: 0002
-- rect: left=227 top=29 right=60 bottom=260
-- title width / last selected line: 0
-- icon id / first selected line: 527 / 527
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: hostSwitch
----- HyperTalk script -----
on mouseEnter
  put "Host/PC Solutions Button" & return & "click for host-based solutions" into fld "Tell"
  changeCurs 6069
end mouseEnter

on mouseUp
  global Mack,Host
  if the icon of me is 527 then
    play "switch"
    set icon of me to 823
    set the hilite of cd btn "hostBasedIndicator" to true
    set icon of cd btn "macSwitch" to 527
    set the hilite of cd btn "macBasedIndicator" to false
  else
    set the hilite of cd btn "hostBasedIndicator" to true
    set icon of cd btn "macSwitch" to 527
    set the hilite of cd btn "macBasedIndicator" to false
  end if
  put true into Host
  put false into Mack
  clearF --∆ hide products and solutions fields and titles
  get field "Horizontal" of cd "Mac Grid"
  put it into EnvHolder
  repeat with lineNum = 1 to 7
    if line lineNum of envHolder is not "Mac" then
      put line lineNum of envHolder into line lineNum of cd fld "Environments"
    else
      put "Macintosh" into line lineNum of cd fld "Environments"
    end if
  end repeat
  show cd fld "EnvironmentTitle"
  show cd fld "Environments"
end mouseUp

On mouseDown
  global ButtonSND
  play ButtonSND
End mouseDown

on mouseLeave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave



-- part 33 (button)
-- low flags: 00
-- high flags: 0002
-- rect: left=0 top=29 right=60 bottom=33
-- title width / last selected line: 0
-- icon id / first selected line: 823 / 823
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: macSwitch
----- HyperTalk script -----
on mouseEnter
  put "Macintosh Button" & return & "click for Macintosh solutions" into fld "Tell"
  changeCurs 6069
end mouseEnter

on mouseUp
  global Mack,Host
  --∆ Set the hilites and pushbuttons
  if the icon of me is 527 then
    play "switch"
    set icon of me to 823
    set the hilite of cd btn "macBasedIndicator" to true
    set icon of cd btn "hostSwitch" to 527
    set the hilite of cd btn "hostBasedIndicator" to false
  else
    set the hilite of cd btn "macBasedIndicator" to true
    set icon of cd btn "hostSwitch" to 527
    set the hilite of cd btn "hostBasedIndicator" to false
  end if
  put true into Mack
  put false into Host
  clearF --∆ hide products and solutions fields and titles
  get field "Horizontal" of cd "Mac Grid"
  put it into EnvHolder
  repeat with lineNum = 1 to 7
    if line lineNum of envHolder is not "Mac" then
      put line lineNum of envHolder into line lineNum of cd fld "Environments"
    else
      put "Macintosh" into line lineNum of cd fld "Environments"
    end if
  end repeat
  show cd fld "EnvironmentTitle"
  show cd fld "Environments"
end mouseUp

On mouseDown
  global ButtonSND
  play ButtonSND
End mouseDown

on mouseLeave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave


-- part 34 (field)
-- low flags: 00
-- high flags: 2002
-- rect: left=32 top=29 right=60 bottom=213
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 130
-- text size: 13
-- style flags: 16640
-- line height: 17
-- part name: macBasedIndicator


-- part 22 (button)
-- low flags: 00
-- high flags: 4000
-- rect: left=33 top=30 right=59 bottom=212
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: macBasedIndicator
----- HyperTalk script -----
on mouseEnter
  put "Macintosh Button" & return & "click for Mac solutions" into fld "Tell"
  changeCurs 6069
end mouseEnter

on mouseUp
  send mouseUp to cd btn "macSwitch"
end mouseUp

On mouseDown
  global ButtonSND
  play ButtonSND
End mouseDown

on mouseLeave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave



-- part 35 (field)
-- low flags: 00
-- high flags: 2002
-- rect: left=259 top=29 right=60 bottom=426
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 130
-- text size: 13
-- style flags: 16640
-- line height: 17
-- part name: hostBasedIndicator


-- part 23 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=260 top=30 right=59 bottom=425
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: hostBasedIndicator
----- HyperTalk script -----
on mouseUp
  send mouseUp to cd btn "hostSwitch"
end mouseUp

On mouseDown
  global ButtonSND
  play ButtonSND
End mouseDown

on mouseEnter
  put "Host/PC Solutions Button" & return & "click for host-based solutions" into fld "Tell"
  changeCurs 6069
end mouseEnter

on mouseLeave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave




-- part 36 (button)
-- low flags: 00
-- high flags: 4000
-- rect: left=0 top=0 right=27 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Title Bar


-- part contents for card part 2
----- text -----
Environment

-- part contents for card part 5
----- text -----
Digital Solutions

-- part contents for card part 30
----- text -----
Engineering/CAD

-- part contents for card part 7
----- text -----
Products

-- part contents for card part 13
----- text -----
Digital
IBM
Macintosh
PC
Tandem
UNIX
Wang

-- part contents for card part 14
----- text -----
Communications
Engineering/CAD
Info Management
Office Productivity
Publishing
Software Development
Network Services
Hardware


-- part contents for card part 18
----- text -----
Product Outliner

-- part contents for card part 35
----- text -----
Host/PC Based Products

-- part contents for card part 34
----- text -----
Macintosh Based Products

-- part contents for card part 16
----- text -----
auraCAD/CAM
AutoCAD for the Macintosh
Claris CAD
MacBRAVO! DETAILER
MacBRAVO! ELECTRONICS DESIGNER
MacBRAVO! FACILITIES
MacBRAVO! MODELER
Mathematica For Macintosh
MicroStation Mac 3.5.1
VersaCAD/Macintosh Edition 2.2


-- part contents for background part 9
----- text -----
Orientation Briefing Button
click to go to briefing room